﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head()%>
<%
w "<card title=""访问统计""><p>"& systemMsg
Dim iprr,ip_total_,ip_conter_days_,pv_total_
Set iprr = Server.CreateObject("ADODB.Recordset")
iprr.open"select HU_Counter,HU_Tod,HU_Today,HU_Yesterday,HU_Browser,HU_Browsers,HU_Counter,HU_Yays from 74hu_counter where id=1",myconn,1,1
ip_total_=iprr("HU_Counter")
ip_conter_days_=iprr("HU_Yays")
pv_total_=iprr("HU_Browsers")
If Not iprr.eof Then
w "总访问IP:"&ip_total_&_
	"<br/>最高IP:"&iprr("HU_Tod")&_
	"<br/>今日IP:"&iprr("HU_Today")&_
	"<br/>昨日IP:"&iprr("HU_Yesterday")&_
	"<br/>日均IP:"&int(ip_total_/ip_conter_days_)&_
	"<br/>今日PV:"&iprr("HU_Browser")&_
	"<br/>总访问PV:"&pv_total_&_
	"<br/>日均PV:"&int(pv_total_/ip_conter_days_)&_
	"<br/>统计天数:"&ip_conter_days_
	if KEYid=1 then
		w "<br/><a href=""llqk.asp?sid="&sid&""">[清空记录]</a>"
	end if
End If
iprr.close
set iprr = nothing

%><br/>----------<%call rootLast%>